How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act3/00178.ls

Text File | 1995-03-28 | 690 b | 31 lines

on givehintold saywhat
  global keyout, ogre
  set keyout to 0
  puppetSprite(35, 1)
  set newy to -50
  set newx to random(540) + 50
  set the locH of sprite 35 to newx
  set the locV of sprite 35 to newy
  defbuggy()
  flapto(ogre, newx, 50, 90, 5)
  talkyou(saywhat)
  if the mouseDown then
    exit
  end if
  flapto(ogre, newx, newy, 60, 5)
  set the locH of sprite 35 to -200
  puppetSprite(35, 0)
  updateStage()
end

on givehint saywhat
  if the number of cast saywhat > 0 then
    set soundtime to the size of cast saywhat / 183
    puppetSound(saywhat)
    set ptime to the timer + soundtime + 10
    repeat while the timer < ptime
      updateStage()
    end repeat
  end if
end